home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS065.dsk / PROPERTY MORTGAGE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  4KB  |  128 lines
  1. 10 DIGITS = 2:LINE = 0
  2. 20  DIM M(5),N(5),O(5)
  3. 30  DIM Q(5),R(5),T(5),U(5),V(5)
  4. 40  DIM AA$(10),BB$(10),CC$(10)
  5. 50  CALL  -936
  6. 270  PRINT "HOW MANY ACRES DOES"
  7. 275  PRINT "THIS PARCEL HAVE           ";
  8. 280  INPUT N1: PRINT 
  9. 310  PRINT "WHAT IS THE PROPOSED"
  10. 315  PRINT "PURCHASE PRICE             ";
  11. 320  INPUT P1: PRINT 
  12. 330  IF Y = 2  THEN 800
  13. 340  PRINT "HOW MANY MORTGAGES WILL"
  14. 343  PRINT "THERE BE AGAINST THE"
  15. 346  PRINT "PROPERTY                   ";
  16. 350 Z = 5: INPUT J:L = 0: PRINT 
  17. 360  PRINT "HIT RETURN TO CONTINUE ";: INPUT C$: CALL  -936
  18. 380  PRINT "FOR BALOON OR INTEREST ONLY MORTGAGES"
  19. 385  PRINT "SET TERM TO 10000": PRINT : PRINT 
  20. 390  FOR I = 1 TO 4:M(I) = 0:N(I) = 0:O(I) = 0:T(I) = 0:U(I) = 0:V(I) = 0: NEXT I
  21. 460  PRINT "MTG #  AMOUNT ($)  TERM (MOS)  INT RATE"
  22. 462  PRINT 
  23. 465  FOR I = 1 TO J: VTAB I +6
  24. 470  PRINT "  ";I;"  ";: INPUT M(I): VTAB I +6
  25. 480  PRINT "  ";I;"  ";" ";M(I);"          ";: INPUT N(I)
  26. 485  VTAB I +6
  27. 490  PRINT "  ";I;"  ";" ";M(I);"          ";N(I);"          ";: INPUT O(I)
  28. 495  VTAB I +6
  29. 500  PRINT "  ";I;"  ";" ";M(I);"          ";N(I);"          ";O(I);"  "
  30. 520 L = L +M(I)
  31. 530  NEXT I
  32. 540  IF Y = 2  THEN 800
  33. 545  CALL  -936
  34. 800 P2 = (G3 *100)/P1
  35. 810 P3 = P1/N1
  36. 830 P5 = P1 -L
  37. 1120  FOR I = 1 TO J
  38. 1130 Q(I) = O(I)/1200
  39. 1140 T(I) = (1 +Q(I)) ^N(I)
  40. 1150 R(I) = (M(I) *Q(I) *T(I))/(T(I) -1)
  41. 1160  NEXT I
  42. 1180  FOR I = 1 TO J
  43. 1190 T1 = 0
  44. 1200 T3 = M(I)
  45. 1210  FOR K = 1 TO 12
  46. 1220 T2 = T3 *Q(I)
  47. 1230 T(I) = T(I) +T2
  48. 1240 T3 = T3 -(R(I) -T2)
  49. 1250  NEXT K
  50. 1260  NEXT I
  51. 1270 P7 = 0:P8 = 0:P9 = 0
  52. 1280  FOR I = 1 TO J
  53. 1290 V(I) = R(I) *12
  54. 1300 U(I) = V(I) -T(I)
  55. 1310 C = C -V(I)
  56. 1320  IF N(I) < = 900  THEN 1340
  57. 1330 U(I) = 0
  58. 1340 P7 = P7 +T(I)
  59. 1350 P8 = P8 +U(I)
  60. 1360 P9 = P9 +V(I)
  61. 1370  NEXT I
  62. 1580  PRINT "HIT RETURN TO CONTINUE";
  63. 1585  INPUT Q$: CALL  -936
  64. 1600  PRINT : PRINT "MTG #   INTEREST    PRINCIPAL    TOTAL ": PRINT 
  65. 1610  FOR I = 1 TO J
  66. 1620 AA = T(I): GOSUB 3000:T(I) = AA
  67. 1630 AA = U(I): GOSUB 3000:U(I) = AA
  68. 1640 AA = V(I): GOSUB 3000:V(I) = AA
  69. 1680  PRINT I; TAB( 14 - LEN( STR$(T(I))));T(I); TAB( 27 - LEN( STR$(U(I))));U(I); TAB( 40 - LEN( STR$(V(I))));V(I)
  70. 1690  NEXT I: PRINT 
  71. 1700 AA = P7: GOSUB 3000:P7 = AA
  72. 1710 AA = P8: GOSUB 3000:P8 = AA
  73. 1720 AA = P9: GOSUB 3000:P9 = AA
  74. 1730  PRINT "INTEREST "; TAB( 40 - LEN( STR$(P7)));P7
  75. 1740  PRINT "PRINCIPAL"; TAB( 40 - LEN( STR$(P8)));P8
  76. 1750  PRINT "TOTAL    "; TAB( 40 - LEN( STR$(P9)));P9
  77. 1760 AA = P1: GOSUB 3000:P1 = AA
  78. 1770 AA = P3: GOSUB 3000:P3 = AA
  79. 1780 AA = P5: GOSUB 3000:P5 = AA
  80. 1800  PRINT 
  81. 1810  PRINT "PURCHASE PRICE=";P1;"  LOAN AMOUNT=";L;"  EQUITY            =";P5
  82. 1820  PRINT "PRICE/ACRE= ";P3
  83. 1830 P0 = P9/12:AA = P0: GOSUB 3000:P0 = AA
  84. 1840  PRINT " MONTHLY PAYMENT= ";P0
  85. 1860  PRINT : PRINT 
  86. 1870  PRINT "1  DISPLAY CURRENT VALUES"
  87. 1875  PRINT "2  CHANGE A VALUE"
  88. 1880  PRINT "3  RERUN PROGRAM"
  89. 1885  PRINT "4  END OF PROCESS"
  90. 1890  PRINT : PRINT "ENTER CHOICE ";
  91. 1895  INPUT K
  92. 1900 Y = K
  93. 1910  IF K = 4  THEN 2340
  94. 1920  IF K = 3  THEN 50
  95. 1930  IF K = 2  THEN 1970
  96. 1940  IF K = 1  THEN 2180
  97. 1950  GOTO 1860
  98. 1970  CALL  -936
  99. 2020  PRINT "1  PURCHASE PRICE"
  100. 2030  PRINT "2  MORTGAGE INFORMATION"
  101. 2050  PRINT : PRINT "ENTER CHOICE";: INPUT Z
  102. 2090  IF Z = 1  THEN 310
  103. 2100  IF Z = 2  THEN 340
  104. 2130  GOTO 1970
  105. 2180  CALL  -936
  106. 2200  PRINT "PROPERTY HAS ";N1;" ACRES"
  107. 2280  FOR I = 1 TO J
  108. 2290  PRINT "MORTGAGE ";I;"=";M(I);" OVER  ";N(I);" MOS AT ";O(I);"%"
  109. 2310  NEXT I
  110. 2320  PRINT 
  111. 2330  PRINT : PRINT "HIT RETURN TO CONTINUE";: INPUT Q$: GOTO 1860
  112. 2340  PRINT "THANK YOU"
  113. 2350  END 
  114. 3000 AA$ =  STR$(AA)
  115. 3010  FOR BB = 1 TO  LEN(AA$)
  116. 3020 BB$ =  MID$ (AA$,BB,1)
  117. 3030  IF BB$ = "."  THEN 3060
  118. 3040  NEXT BB
  119. 3050  RETURN 
  120. 3060 BB = BB +3
  121. 3070  IF BB > LEN(AA$)  THEN 3050
  122. 3080 BB$ =  MID$ (AA$,BB,1)
  123. 3090 CC =  VAL(BB$)
  124. 3100  IF CC >4  THEN AA = AA +.01
  125. 3110 AA$ =  STR$(AA)
  126. 3120 CC$ =  LEFT$(AA$,BB -1)
  127. 3130 AA =  VAL(CC$)
  128. 3140  RETURN